home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / NB03 / UNT / C-QT2LT.UNT < prev    next >
Text File  |  1996-03-11  |  2KB  |  40 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   C-QT2LT .UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14.  
  15. $if 1
  16.   $CODE SEG        "DAS_NB03"
  17.   $EVENT            OFF
  18.   $ERROR ALL        OFF
  19.   $OPTIMIZE         SIZE
  20.   $OPTION GOSUB     OFF
  21.   $OPTION CNTLBREAK OFF
  22.   $OPTION SIGNED    OFF
  23.   $DEBUG  MAP       OFF
  24.   $DEBUG  PATH      OFF
  25.   $DEBUG  UNIT      OFF
  26.   $COMPILE          UNIT
  27. $endif
  28.  
  29. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  30. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  31. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  32. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  33.  
  34. FUNCTION fQuarts2LITERS#( BYVAL Quarts# ) LOCAL PUBLIC
  35.  
  36.   FUNCTION = ( Quarts# * 1.0567# )
  37.  
  38. END FUNCTION
  39.  
  40.